SELECT ოპერატორში გამოსახულების, ტექსტური ინფორმაციის კონექტაციის (გადაბმა) გამოყენება

SELECT ოპერატორში შეიძლება გამოყენებულ იქნეს კონექტაციის ოპერაცია: ორი ველის მნიშვნელობა გადაბმულ იქნეს ან ველის მნიშვნელობას გადაებას სტრიქონის ტიპის გამოსახულება (მაგ. წინადადება ”ინახება საწყობში”) და გამოტანილ იქნეს ერთ ველში.

SELECT tbsaqoneli.das+' '+'inaxeba sawyobSi'+' '+tbsawyobi. dasaxeleba AS [dasaxeleba], tbsaq_mireba.tariri, tbsaq_mireba.tariri, tbsaq_mireba.raodenoba" & _

" FROM tbsawyobi RIGHT JOIN (tbsaqoneli RIGHT JOIN tbsaq_mireba ON tbsaqoneli.nomeri=tbsaq_mireba.saq_nomeri) ON tbsawyobi.nomeri=tbsaq_mireba.saw_nomeri

SQL ენაზე დაწერილი ეს ინსტრუქცია შემდეგნაირად იკითხება: საშედეგო ცხრილის სვეტში სახელით ”დასახელება” (AS [dasaxeleba]) ცხრილიდან tbsaqoneli სვეტის das მნიშვნელობას გადაებას წინადადება ”ინახება საწყობში” და ცხრილიდან tbsawyobi სვეტის dasaxeleba მნიშვნელობა.

პროგრამა შემდეგია:

Private Sub Rsek_Click()

Dim kit As String

Me.Lsia.RowSource = ""

kit = "SELECT tbsaqoneli.das+' '+'inaxeba sawyobSi'+' '+tbsaw-yobi.dasaxeleba AS [dasaxeleba], tbsaq_mireba.TariRi, tbsaq_mireba.raodenoba" & _

" FROM tbsawyobi RIGHT JOIN (tbsaqoneli RIGHT JOIN tbsaq_mireba ON tbsaqoneli.nomeri=tbsaq_mireba.saq_nomeri) ON tbsawyobi.nomeri=tbsaq_mireba.saw_nomeri"

With Me.Lsia ’ფორმაზე დატანილია მართვის ელემენტი სახელით Lsia. მასში გამოიტანება ამორჩევის სახელი

.ColumnHeads = True

.ColumnCount = 3

.ColumnWidths = "5in;1,5in;1,4in;"

.RowSourceType = "Table/Query"

.RowSource = kit

End With

End Sub

პროგრამის მუშაობის შედეგი/სურ. 6/